O6888(CUT 0-180 DEG ID TAPER)
(ABSOLUTE AND INCREMENTAL SURFACING MACRO)
(PROVEN ON NC PLOT ONLY)

(FORMAT G65/G66 AQUDTSRZEF)
(A = #1  - INCLUDED ANGLE OF PART FROM BOTTOM)
(Q = #17 - STEPOVER IN Z/ CUSP HEIGHT)
(U = #21 - ARC LEAD IN RADIUS) 
(D = #7  - TOOL DIAMETER)
(T = #20 - TOOL RADIUS/ BALL OR BULL)
(S = #19 - PART ID/ TOP)
(R = #18 - R PLANE)
(Z = #26 - Z START ZERO)
(E = #8  - END OF TOOL POSITION IN Z)
(F = #9  - FEEDRATE)
(***********************************)

#100=ABS[#26]-ABS[#8]
#100=ABS[#100]
IF[[#26*#8]GE0]GOTO1
#100=ABS[#26]+ABS[#8]
N1#101=ROUND[#100/#17]
#102=#100/#101
IF[#102GT[#100/2]]GOTO1000
#103=#5001
#105=#5002
#113=#105
#115=0
IF[#7EQ[#20*2]]GOTO10
#105=#105-[[#7/2]+#20]
#115=#115-[[#7/2]+#20]
N10#105=#105+[#19/2]
#115=#115+[#19/2]
#125=90.+[#1/2]
#105=#105-[#20/TAN[#125/2]]
#115=#115-[#20/TAN[#125/2]]
#107=#105-#21
G0G90X#103Y#107
Z[#26+.1]
G1Z#26F#9
WHILE[#101GE0]DO1
IF[#101LT0]GOTO100
#101=#101-1.
G90G1G41X[#103+#21]F#9
G03X#103Y#105I-[#21]
J-#115
X[#103-#21]Y#107J-[#21]
G1G40X#103
#105=#105-[TAN[#1/2]*#102]
#115=#115-[TAN[#1/2]*#102]
#107=#105-#21
G91G1Z-[#102]
G90Y#107
END1
N100G0G90Z#18
X#103Y#113
M99
N1000#3000= 1( Q VALUE TOO BIG )
